From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 11 Jun 1993 17:52:59 +0000 (+0000)
Subject: (Man-filter-list): Add an element for X man pages.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~95401
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=4cd88e9c9454547254b953b7fdba221138271b0a;p=emacs.git

(Man-filter-list): Add an element for X man pages.
(Man-goto-page): Continue past errors in Man-build-references-alist.
---

diff --git a/lisp/man.el b/lisp/man.el
index 26c3aa1400b..2b0f26e8bfe 100644
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -139,6 +139,7 @@ the associated section number.")
       "-e '/^[ \\t]*Hewlett-Packard[ \\t]*- [0-9]* -.*$/d'"
       "-e '/^ *Page [0-9]*.*(printed [0-9\\/]*)$/d'"
       "-e '/^Printed [0-9].*[0-9]$/d'"
+      "-e '/^[ \\t]*X Version 1[01].*Release [0-9]/d'"
       "-e '/^Sun Microsystems.*Last change:/d'"
       "-e '/^Sun Release [0-9].*[0-9]$/d'"
       "-e '/^\\n$/D'"
@@ -731,7 +732,11 @@ background. Universal argument ARG is passed to Man-getpage-in-background."
     (goto-char page-start)
     (narrow-to-region page-start page-end)
     (Man-build-section-alist)
-    (Man-build-references-alist)
+    ;; Don't let bugs in Man-build-references-alist
+    ;; interfere with ordinary use of this package.
+    (condition-case nil
+	(Man-build-references-alist)
+      (error))
     (widen)
     (narrow-to-region page-start page-end)
     (goto-char (point-min))))